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Named for one of the unfortunate customers who suffered — 
to determine the great UCBSL_MT_RECORD secret while tr ing to 
create a user-written magtape driver pts “a e eliminates 
use of the device dependent field, uC T_RECORD in favor of 


the device independent field, et URECORD 


| 
3 1 1 MODULE POSFID ( payne BL ISS3e . s | ; 
; ¢ ¢ "v04- : 
: 4 904 1 BEGIN | ; 
: § 38 : Se Tete epee | : 
a :* 3 
3 8 008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 8 * 3 
3 9 0009 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. * ; 
5 19 Bait : ALL RIGHTS RESERVED. * . 
3 ! * 3 
: \§ Ba ig 1 !® THIS SOFTWARE IS CRN sued UNDER A LICENSE AND MAY BE USED AND i * ; 
: 1 1 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH ICENSE AND WITH THE * ; 
; 14 Bate 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ; 
; 15 015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
; 16 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
: if Boi 6 : :* TRANSFERRED. * 5 
; 'e x 3 
3 19 0019 1 !« pe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * . 
: 20 002G 1 !* SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : 
$ $3 89 1 : :* CORPORATION. * H 
a :f ® e 
3 $§ 00 § 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ; 
4 $e BB : : + SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ; 
3 ! * § 
‘> an p06 1 !e * 3 
3 sf Be 8 : See Ree ERATE RTARTA AAA ARATE EE ‘ 
i 0029 1 !+4 ; 
3 0 0030 1! 3 
; 1 0031 1 =! FACILITY: MTAACP 3 
; $8 O08 1: : 
; 3 00 1 i ABSTRACT : 
; 0034 1: This module position the tape ; 
s 5 R282 1: r 
3 6 36 «WI i ENVIRONMENT: é 
: H $038 i VMS ti tem, includi ivileged syst i ; 
: ! operating system, including privileged system services 3 
3 39 0039 1! and Screraal eake routines. whe . . . 3 
; 40 0040 1! 3 
re | 0041 1 !-- 3 
: $§ Boe 1 3 
3 4 0043 1 g 
; | 644 Boee 1 3 
3 a2 Boag : AUTHOR: OD. H. GILLESPIE, CREATION DATE: 31-MAY-77 11:30 : 
: 4 G04? | | MODIFIED By: : 
: 49 094 1 v03-G01 ROW0258 Ralph 0. Weber 21-NOV-1983 : 
; SO 5 ! The Paul Rotates Memorial Enhancement : 
: 1 : 
; 1 3 
3 1 : 
3 1 : 
s 1 g 
3 1 : 
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1e=8ep- 1984 93:88:27 EAtaace®SaeSpose 1D-830;1 
Added check for RVN greater then byte size 
V02-004 REFORMAT Maria del C. Nasr 30-Jun-1980 


LIBRARY ‘SYSSLIBRARY:L1B.L32'; 
REQUIRE ‘SRCS:MTADEF .B32'; 
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£91984 93:78:25 | HAtaAtpOsae Space io o35~ 


GLOBAL ROUTINE POSITION_BY_FID ( FID WANTED, RVN_WANTED ) : 


COMMON CALC NOVALUE = 


aa 
na 


tales ir DESCRIPTION: 


This routine prgtttons the tape just passed the headers of the file 


specified by 


CALLING SEQUENCE: 
POSITION_BY_FID ( ARG1, ARG2 ) 


INPUT PARAMETERS: 
ARG1 = file identifie 
ARG2 = rvn on which f 


ates 3 INPUTS: 
CURREN 


r 
ile resides 


NT_VCB = address of current vcb 


CURRENT_UCB = address of current unit control block 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 


tape positioned passed HDR1 and HDR2 (if it exists) 


these Labels are read i 


n 
if file doesn't exist, error exit taken 


address of current U 


USER ERRO 
ees RNOSUCHF ILE - no file exists that matches fid 
BEGIN 
EXTERNAL REGISTER 
COMMON_REG; 
EXTERNAL 
CURRENT_UCB : REF BBLOCK, 
HDR1 : REF BBLOCK; 


EXTERNAL ROUTINE 
READ _HDR 


MOUNT_VOL, 
SPACE EOF: 
BIND 


CUR_FID = CURRENT_VCBCVCB$W_CUR_NUM); 


LOCAL 
TA 


uCcB 
address of HDR1 (EOF1) Label 


read headers 
mount relative volume 
space to end of file 


number of tm's past in file 


E$eor1984 99:28:87 yavedd ouisacsz,ve-0sr ay 


‘re 
s 1 $ 8 ! if the file id is zero, then the user has input an invalid file id or 
3 : 3 : ; the acp has a bug. 
: i 9 ig if ¢ FID WANTED EQL 0 ) THEN ERR_EXIT ( SS$_BADPARAM ); 
.*? ; 14 IF ( CUR FID EQLU . et WANTE A ge 
| 16 4 AND ( ~ CURRENT ove VcBsB eI NcEs 0} 
cs 16 5 OR B55 TH actu 1 ,. 
; 135 51 AND tc Taree’ vee C vee Cs nD 
iy 318 CU RREN 1 uce Casi "RECORD ) EQLU 0) 
. ¥ 31 AND ( LHORIEHDISE HBILID] EQL~'HDR1' 
; 158 0 4 ) 
; 139 521 ) 
: 140 3 g THEN RETURN; 
: 146 2 ¢ check if RVN is less then byte size 
: 146 03 $ IF ( .RVN_WANTED GEQU 256 ) THEN ERR_EXIT ( SS$_BADPARAM ); 
: 146 05 § MOUNT_VOL ( IF ( .RVN_WANTED EQL 0 ) ) THEN 1 ELSE .RVN_WANTED, 
: if 03 4 SFIELDMASR ( MOUSV -LBLCHECK ) OR SFIELDMASK ( ( MOUSV_REWIND ) 
: 149 531 . 
: 150 0 é READ_HDR(); 
3 151 5 
: 138 0534 WHILE TRUE DO 
; 5 0535 BE 
3 154 05 6 IF ( .CUR_FID EQLU .FID WANTED ) THEN EXITLOOP; 
; 155 033 SPACE EOFT); 
: 156 538 F NOT READ.HDR() THEN ERR_EXIT ( SS$_NOSUCHFILE ); 
: 157 0539 hips 
: 158 0540 
: 159 0541 +1 END; ! end of routine 
.TITLE POSFID 
IDENT Av04~000% 
~EXTRN CURRENT_UCB, HDR1 
SEXTRN READ_HDR, MOUNT_VOL 


SEXTRN SPACE_EOF 
-PSECT SCODE$,NOWRT,2 


0000 00000 ENTRY POSITION BY_FID, Save nothing 3 

04 A D 00. TSTL F D_WANTED Z 

9 1 00 BNEQ 3 

BF CHMU 620 ; 

04 AC 24 48 } 1$: ones (CURRENT_VCB), FID_WANTED : 
2E AB o 1 TSTB 46(CURRENT_VCB) 3 

- 7 1 BEQL F 

01 ‘e 7 1 CMPB aaa, _VCB), #1 3 

5 00006 CF D6 9001 ROVE RRENT_UCB ; 

0080 8 98 AB D1 8 CMPL Euanent uc Bice) 176(RO) 3 


— 


3; Routine Size: 


CSYSLIBILIB.L32;1 


4 
1b-se -1984 02:28:57 AX-11 Bliss-32 V4.0-74 
1 ~3007 138% 95:78:22 ERTAACP SREIPOSF 1D B32, 
0B 1 BNEQ 2 
31524448 8F 00006 oF | CPL HDR1, #827475016 
00000100 8F 08 i p} 2$: CHL RYN_WANTED, #256 
° BF D CHMU = #20 
03 D F 3$: PUSHL # 
08 AC 08 41 TSTL © RVN_WANTED 
4 1 44 BNEG 4$ 
1 OD 46 PUSHL #1 
08 Re DD th 4$ PUSHL de WANTED 
00006 CF 05 FB $b 5$: CALLS m2," ROUNT VOL 
00006 CF FB 0052 CALLS #0. READ ADR 
04 AC 24 Ap D4 0047 6$: CPL 36(CURRERT_VCB), FID_WANTED 
00006 CF 0 FB 0005 CALLS 40, SPACE_EOF 
eat a 
oro aH Sasa gv 
04 isa 7$ RET 


Routine Base: $CODE$ + 0000 


PSECT SUMMARY 
Bytes Attributes 
114 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


omEoee Syabols ecoe---- Pages Processing 
Total Loaded Percent Mapped Time 
18619 12 0 1000 00:01.9 


BeBe Se Ge Se Se Ge Se Ge Be Fe Fe Ge Ge Fe Ge Ge Ge Ge Be Ge Be 


iEoseoctgee 02:28:57 yarct ot in4=52 v4.0-74 
COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:POSF ID/OBJ=OBJ$:POSFID MSRC$:POSFID/UPDATE=(ENH$:POSF ID) 
Size: 114 6° 5 0 data bytes 
a | 
Lexenes/CPU-in: 26088 


: 86 pages 
Eeeotletion Complete 
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